
* data from 0a_PrepSurveyData.do
use "data/outputs/EducMstr.dta", clear


* graph, all years, 1998+2000 highlighted
#delimit;

twoway  (scatter estimate year if year < 1998, mcolor(black))
	    (rbar min95 max95 year if year < 1998, color(black) barwidth(.2))
		(scatter estimate year if year > 2000, mcolor(black) msymbol(diamond))
	    (rbar min95 max95 year if year > 2000, color(black) barwidth(.2))
		(scatter estimate year if year <= 1968 | year == 1978, mcolor(gs10))
	    (rbar min95 max95 year if year <= 1968 | year == 1978, color(gs10) barwidth(.2))
		(scatter estimate year if year == 1998 | year == 2000, mcolor(blue) msymbol(diamond))
	    (rbar min95 max95 year if year == 1998 | year == 2000, color(blue) barwidth(.2)),
		yline(0, lwidth(thick) lcolor(gs12))
		graphregion(fcolor(white) lcolor(white) margin(zero))
        plotregion(fcolor(white) lstyle(none) lcolor(white) ilstyle(none))
        xsize(11) ysize(7.75)
		title("", size(large))
        ytitle("Difference in P(Vote Left)", color(black) size(large))
		xtitle("")
        yscale()
		ylabel(-30(10)10, labsize(large) glcolor(white))
		xlabel(1958 "1958"
		1968 "1968"
		1978 "1978"
		1988 "1988"
		1998 "98  "
		2000 "  00"
		2006 "2006"
		2012 "2012", labsize(large))
		xscale( range(1958 2014))
        legend(order(1 "AD" 3 "Chávez") rows(2) region(lcolor(white)) pos(11) ring(0));

graph export "figures/Figure3.pdf", replace;

* End
